﻿Public Class FormFiltreAligner

   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oTrans As New ClassTextOp
        oTrans.Operation = ClassTextOp.EnumTextOperation.Aligner
        oTrans.Parametres(0) = Me.TextBox1.Text
        Me.RichTextBoxResult.Text = oTrans.Transformer(Me.RichTextBox1.Text)
        oTrans = Nothing
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.TextBox1.Text = ""
    End Sub

    Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
        FormRegEx.TextBoxRegEx.Text = Me.TextBox1.Text
        FormRegEx.RichTextBoxTest.Text = Me.RichTextBoxResult.Text
        If FormRegEx.ShowDialog = DialogResult.OK Then
            Me.TextBox1.Text = FormRegEx.TextBoxRegEx.Text
            Me.RichTextBoxResult.Text = FormRegEx.RichTextBoxTest.Text
        End If
    End Sub
End Class